home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDSVL.LSP < prev    next >
Encoding:
Text File  |  1980-01-01  |  499 b   |  21 lines
  1. ;This function draws a "continuous"
  2. ;vertical line (similar to CADAM)
  3. ;
  4. ;Function name "EDSVL.LSP" - Execute command "VL"
  5. ;
  6. ;Written by Steve Brown and Christopher Conrad
  7. ;
  8. ;
  9. (defun c:vl ( / pt1 pt2)
  10.    (setq indpt (getpoint "\nIndicate point: "))
  11.    (setq vertx (car indpt))
  12.    (setq verty (cadr indpt))
  13.    (setq top (+ verty 15000.0))
  14.    (setq bot (- verty 15000.0))
  15.    (setq pt1 (list vertx top))
  16.    (setq pt2 (list vertx bot))
  17.    (command "line" pt1 pt2)
  18.    (command "")
  19. )
  20.  
  21.